home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / examples / scheme / mondo < prev    next >
Encoding:
Text File  |  1989-05-16  |  240 b   |  10 lines
  1. ;;; -*-Scheme-*-
  2.  
  3. (let ((k (call-with-current-continuation (lambda (c) c))))
  4.   (display 1)
  5.   (call-with-current-continuation (lambda (c) (k c)))
  6.   (display 2)
  7.   (call-with-current-continuation (lambda (c) (k c)))
  8.   (display 3)
  9.   (newline))
  10.